home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / tex / mf / inputs / cm / it_lig.mf < prev    next >
Text File  |  1993-11-28  |  5KB  |  94 lines
  1. k#:=-.7u#;kk#:=-1.8u#;kkk#:=-2.5u#;
  2. diaer=oct"042"; %  double quote
  3. ligtable "-": "-" =: oct"000";  %  en-dash
  4. % |ligtable oct"000": "-" =: oct"177";|  em-dash
  5. ligtable "(":  "(" =: oct"173"; %  open quotes
  6. ligtable ")":  ")" =: oct"175"; %  close quotes
  7. ligtable "<":
  8.         "~" =: oct"100", "'" =: oct"126",% | "`" =: oct"103",|
  9.         "a" =: oct"001", "e" =: oct"037", "h" =: oct"007",% | "r" =: oct"373",|
  10.         "o" =: oct"137", "w" =: oct"015", "i" =: oct"023", "u" =: oct"031",
  11.        "A" kern 2kk#, "E" kern kk#, "O" kern kkk#, "I" kern kk#, "U" kern kkk#,
  12.         "W" kern kk#, "H" kern kkk#; 
  13. ligtable ">":
  14.         "~" =: oct"134", "'" =: oct"136",% | "`" =: oct"137",|
  15.         "a" =: oct"002", "e" =: oct"040", "h" =: oct"010",% | "r" =: oct"374",|
  16.         "o" =: oct"140", "w" =: oct"016", "i" =: oct"024", "u" =: oct"032",
  17.       "A" kern 2kk#, "E" kern kk#, "O" kern kkk#, "I" kern kk#, "U" kern kkk#,
  18.         "W" kern kk#, "H" kern kkk#;
  19. ligtable diaer: "'" =: oct"043";% | "`" =: oct"044",|
  20. % |     "i" =: oct"360", "u" =: oct"364";|
  21. % |ligtable oct"044":|  % diaeresis and grave
  22.         % |"i" =: oct"361", "u" =: oct"365";|
  23. % |ligtable oct"043":|  % diaeresis and acute
  24.         % |"i" =: oct"362", "u" =: oct"366";|
  25. % |ligtable oct"040":|  % diaeresis and circumflex
  26.         % |"i" =: oct"363", "u" =: oct"367";|
  27. % |ligtable "`": diaer =: oct"044",|
  28.         % |"a" =: oct"200", "h" =: oct"230", "w" =: oct"260",|
  29.         % |"e" =: oct"340", "o" =: oct"344", "i" =: oct"310", "u" =: oct"314";|
  30. ligtable "'": diaer =: oct"043", "'" =: oct"035",
  31.         "a" =: oct"003", "h" =: oct"011", "w" =: oct"017",
  32.         "e" =: oct"044", "o" =: oct"103", "i" =: oct"025", "u" =: oct"033",
  33.        "A" kern 2kk#, "E" kern kk#, "O" kern kkk#, "I" kern kk#, "U" kern kkk#,
  34.         "W" kern kk#, "H" kern kkk#; 
  35. ligtable oct"126": %  rough breathing and acute,
  36.         "a" =: oct"004", "h" =: oct"012", "w" =: oct"020",
  37.         "e" =: oct"177", "o" =: oct"133", "i" =: oct"026", "u" =: oct"034",
  38.        "A" kern 2kk#, "E" kern kk#, "O" kern kkk#, "I" kern kk#, "U" kern kkk#,
  39.         "W" kern kk#, "H" kern kkk#; 
  40. ligtable oct"136":      %  smooth breathing and acute
  41.         "a" =: oct"005", "h" =: oct"013", "w" =: oct"021",
  42.         "e" =: oct"046", "o" =: oct"135", "i" =: oct"027", "u" =: oct"166",
  43.        "A" kern 2kk#, "E" kern kk#, "O" kern kkk#, "I" kern kk#, "U" kern kkk#,
  44.         "W" kern kk#, "H" kern kkk#; 
  45. ligtable "~": % |diaer =: oct"040",|
  46.         "a" =: oct"006", "h" =: oct"014", "w" =: oct"022",
  47.         "i" =: oct"030", "u" =: oct"036";
  48. % |ligtable oct"100":|  % rough breathing and circumflex
  49.         % |"a" =: oct"221", "h" =: oct"251", "w" =: oct"301",|
  50.         % |"i" =: oct"331", "u" =: oct"335";|
  51. % |ligtable oct"134":|  % smooth breathing and circumflex
  52.         % |"a" =: oct"222", "h" =: oct"252", "w" =: oct"302",|
  53.         % |"i" =: oct"332", "u" =: oct"336"; |
  54. mk#:=-1.2u#;
  55. ligtable "l":
  56.         "h" kern mk#,oct"011" kern mk#,oct"014" kern mk#,"u" kern mk#
  57.         ,oct"033" kern mk#,oct"036" kern mk#, "o" kern k#, oct"103" kern k#,
  58.         "a" kern k#, oct"003" kern k#, oct"006" kern k#, "i" kern k#,
  59.         oct"025" kern k#, oct"030" kern k#;
  60. ligtable "u": oct"033" : oct"036" : oct"031" : oct"032" : oct"034" : oct"166":
  61.         "g" kern k#, "r" kern  -k#;
  62. ligtable "e": oct"044" : oct"040" : oct"037" : oct"046" : oct"177" : 
  63.         "i" kern k#, oct"025" kern k#, oct"030" kern k#, oct"024" kern k#,
  64.         oct"023" kern k#, oct"027" kern k#, oct"026" kern k#, "n" kern k#;
  65. ligtable "D" : "u" kern k#, oct"033" kern k#, oct"036" kern k#, "h" kern mk#,
  66.         oct"011" kern mk#, oct"014" kern mk#;
  67. ligtable "k" : "o" kern k#, oct"103" kern k#;
  68. ligtable "R" : "a" kern k#, oct"003" kern k#, oct"006" kern k#, "w" kern k#,
  69.         oct"017" kern k#, oct"022" kern k#;
  70. ligtable "h" : oct"011" : oct"014" : oct"007" : oct"010" : oct"012" :
  71.         oct"013" : "m" kern  -k#, "r" kern  -k#;
  72. ligtable "m" : "n" kern k#, "a" kern k#, oct"003" kern k#, oct"006"kern k#;
  73. ligtable "o" : oct"137" : oct"140" : oct"103" : oct"133" : oct"135" :
  74.         "u" kern k#, oct"033" kern k#, oct"036" kern k#, oct"031" kern k#,
  75.         oct"032" kern k#, oct"034" kern k#, oct"166" kern k#, "k" kern k#,
  76.         "q" kern k#, "n" kern k#, "m" kern  -k#;
  77. ligtable "r" : "m" kern  -k#;
  78. ligtable "z" : "o" kern k#, oct"103" kern k#, "a" kern k#, oct"003" kern k#,
  79.         oct"006" kern k#, "h" kern k#, oct"011" kern k#, oct"014" kern k#;
  80. ligtable "K" : "a" kern k#, oct"003" kern k#, oct"006" kern k#;
  81. ligtable "w" : oct"017" : oct"022" : oct"015" : oct"016" : oct"020" :
  82.         oct"021" : "q" kern k#;
  83. ligtable "g" : "w" kern k#, oct"017" kern k#, oct"022" kern k#;
  84. ligtable "T" : "h" kern k#, oct"011" kern k#, oct"014" kern k#, "o" kern mk#,
  85.         oct"103" kern mk#;
  86. ligtable "x" : "o" kern k#, oct"103" kern k#, "a" kern k#, oct"003" kern k#,
  87.         oct"006" kern k#, oct"017" kern k#, "w" kern k#, oct"022" kern k#;
  88. ligtable "A" : "g" kern mk#, "d" kern k#;
  89. ligtable "O" : "l" kern k#;
  90. ligtable "a" : oct"001" : oct"002" : oct"003" : oct"004" : oct"005" :
  91.         oct"006" : "n" kern k#;
  92. ligtable "U" : "p" kern mk#;
  93.  
  94.